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on 138s 91:98:4 VAX-11 Bliss-32 V4.0-742 Page 1. 
ep-1984 12:50:4 DISKSVMSMASTER:CF11X.SRCISCHFCB.B32;1 (1) 
MODULE SCHFCB ( oe UnsE, to tay 
TENT oe yORe08a 
= 


“o 


BEGIN 
Sof} 
449 ete Ee Me Gr eto ae 
;2 
010 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
00 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


'® ALL RIGHTS RESERVED. 
ie hat i arrhe ss ait UNDER A LICENSE AND MAY cbt USED AND for ace 
:* ONLY IN ACCORDANCE W HE H TH THE 


® 
® 
® 
® 
® 
® 
ie INCL * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
4 ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
® 
® 
® 
® 


!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
1 CORPORATION. 


i DIGITAL ASSUMES NO RESPONS 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: F11ACP Structure Level 1 
ABS1T®ACT: 


This routine searches the current volume's FCB List for the 
FCB representing the desired file number. 


ENVIRONMENT : 
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004 STARLET operating system, including privileged system services 
43 and internal exec routines. 
44 044 
45 045 oo 
46 0046 
47 0047 
$8 Bpeg AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 15:41 
? Bat MODIFIED BY: 
2§ O36 v03-007 CDS0006 Christian D. Saether 16-Aug-1984 
a7 37 Mark a nolock accessed fcb as stale always. 
55 055 v03-006 CDS0005 Christian D. Saether tar 1984 
; Bes Modify test for directory fcb to test fcb$l_dirindx. 
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16- sep-19 4 2 9): 9B: rt VAX=11 Bliss-32_ V4.0-742 


Previous revision history moved to F11A.REV 


14-Sep-1984 DISKSVMSMASTER: CF11X.SRCISCHFCB.B32; 429 
! v03-005 CDS0004 christian D. Saether 20-July-1984 
‘ Take out backlink ehece 108 as a performance help. 
Unconditionally clear FCBSV_DIR when an fcb is found. 
i v03-004 CDS0003 Christian D. Saether 19-Apr-1984 
Use REFCNT instead of ACNT. 
i vO3-003 ACG0401 Andrew C. Goldstein, 12-Mar-1984 17:27 
Don’t acknowledge the existence of zero access F(B's 
i v03-002 cps0002 Christian D. Saether 30-Dec-1983 
: Use L_NORM Linkage and BIND_COMMON macro. 
i v03-001 CDS0001 Christian D. Saether 12-May-1983 
Lock scan routine and raise to sched ipl to do search. 
i AQ101 ACG26369 Andrew C. Goldstein, | 31-Dec-1979 17:35 
Fix multi-header file interlock bug 
A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:03 
i 


LIBRARY ‘SYSSLIBRARY:LIB. L32"; 
REQUIRE ‘SRC$:FCPDEF .B32'; 
Code must be locked down. 


LOCK_CODE; 
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“SCHE Ib-5e ~1984 01:08:46  VAX=11_BLiss-32_v4.0-742 Page 3. 
“¥60-600 1e-88p-19Be 12:50:48 DISKSVMSMASTERSEFTIX.SRCISCHFCB.B32:1° °° (23. 
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! Init the pointers and start scanning the FCB List, which is a double 

! Linked List. Check for consistency of pointers and the block ID for each 

! FCB. We win when the FCB containing the desired file number is found; 

' we lose at end of List gig back to the VCB). Note that we ignore 

! FCB's with a zero access count that are not directory FCB's. These are 

! temporary and on their way out. Any FCB on its way in that looks idle 

! is protected by the file's synchronization lock, and we will never see it. 


Peer eee 
NOW EWN 


lz 180} GLOBAL ROUTINE SEARCHFCB (FILE.ID) : L_NORM = | 
13 38 108 1 ies | 
is 9% 1 1! : 
i: % 19 4 | | FUNCTIONAL DESCRIPTION: | ; 
| 39 1988 1 i This routine searches the current volume's FCB list for the : 
; 38 4 : } FCB representing the desired file number. : 
a 100 1089 1 | | 
: 101 1090 1 | CALLING SEQUENCE: | ; 
: 198 199) : SEARCH_FCB (ARG1) ; 
: 104 1098 1 i INPUT PARAMETERS: | : 
; 105 109% i ; ARG1: address of desired file ID | : 
: 107 1096 1 | IMPLICIT INPUTS: | ; 
: 4d : CURRENT_VCB: VCB address of volume | ; 
: 110 1099 1 | OUTPUT PARAMETERS: | ; 
ee ee taut 
; 118 1102 1 ' IMPLICIT OUTPUTS: | ; 
mate ipo hea: 
: 116 1105 1 ! ROUTINE VALUE: : 
: 117 1106 1! FCB address if found | 3 
: 18 a : } zero if not : 
: 120 1109 1 | SIDE EFFECTS: 
ye te BEERS Fre! 
: 138 11g. 1 ine | ; 
> 126 113 1 ; 
me. tai aaa 
: 127 1116 2 MAP | ; 
; iss EE FILE_ID : REF BBLOCK; ! file ID arg : 
; 186 1119 2 LOCAL | ; 
s 931 1120 FCB : REF BBLOCK, ! current FCB being looked at : 
: 13 1121 F IDNUM : WORD, : 
; 13 11 ; F IDNMX : erie. | 3 
; 134 1195 CURVCB : REF BBLOCK; | 3 
: 136 1125 2 BIND_COMMON; : 
: 138 1159 5 LABEL : 
: 139 1128 SCAN; | : 
wn all 
4 1131 | ; 
> 4 Hi | ; 
> 4 11 ; 
ia 1134 : 
ee 1135 3 
Selb 1136 : 
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! Raise IPL to SCHED to block other processes from changing FCB List 
while we scan it. 


32 V4.0-742 P 4 
RICF1IX.SRCISCHFCB.B32;1 — (2) 


—w 
me 


FIDNUM = .FILE_1D EF IDSu_NUM); | 
FIDNMX = -FILETID CFIDSB-NMX): | 


SET_IPL (IPLS_SCHED); 


CURVCB = .CURRENT_VCB; 
FCB = .CURVCB CVCBSL_FCBFLI; 


SCAN: 
BEGIN 


UNTIL .FCB FPL .CURVCB DO 
bee FCBSB_TYPE] EQL DYNSC_FCB 


EGIN 
IF, cEIDNUM EOL .FCBCFCBSW_FID_ NUM} 
AND :FIDNMX EQL .FCBCFCBSB~FID-NMX] 
AND (.FCBCF CBSW_REFCNTI NEG O OR (. 

BEGIN 


FCBSV_DIR is used to indicate that an fcb with a refcnt of zero 

! may be tossed from the cache due to Sirectery index cache replacement 
at ony time, regardless of whether a synchonization lock is held 
for that file number (which should always be the case by the time 


FCB CFCBSL_DIRINDX] NEQ 0)) 


| 
} 
| 
this routine is called). 
By clearing the flag while at ipl$_sched, we prevent another 

process from deallocating it after this time. Checks for whether | 
the flag should be set again and the setting thereof are also 
done at ipl$_sched, so that this flag changes state atomically 
with regard fo other processes doing an otherwise uninterlocked 

testbitsc test on it to determine whether or not to deallocate it. 


FCB CFCB$V_DIRJ = 0; 


If there is an access lock for this fcb, but it is held in 
nl mode, then mark the fcb stale to force rebuild of it 
because we cannot get stale blocking routines in nl mode, 
and must therefore always assume it is stale. 


IF .FCB CFCBSB_ACCLKMODE] EQL LCKSK_NLMODE 
mentn “Fee CFCBSL_ACCLKID] NEQ 0 
FCB CFCBSV_STALE] = 1; 


LEAVE SCAN; 
END; 


FCB = .FCBCFCBSL_FCBFLI; 
END 
ELSE 
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; Routine Size: 94 bytes, Routine Base: S$LOCKEDC1$ + 0000 


he 


| 
: 220 150 0 Et opon 
PSECT SUMMARY | 
Name Bytes Attributes 
SLOCKEDC1$ 94 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$ Library Statistics 
Pe Mite! a er ae = Syabols ooo=-<-- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32:1 18619 33 0 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SCHFCB/OBJ=OBJ$:SCHFCB MSRC$:SCHFCB/UPDATE=(ENH$: SCHF CB) 


: Ecce; 94 63 ? data bytes 
; Elapsed Time: ti? 

; Lines/CPU Min: 

; Lexemes/CPU-Min: 5222 

; Memory Used: 200 pages 

; Compicetion Complete 


pr 
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